Make C-h command hint respect C-h-map commands

diff --git a/which-key.el b/which-key.el
index a875c23ce2f80e0a55f691f6f19f3b6a666894e4..323584ba339f07493c59ddb77d5a9b302e45b1f1 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1733,7 +1733,15 @@ prefix) if `which-key-use-C-h-commands' is non nil."
               (concat (when (string-equal prefix-keys "")
                         (propertize " Top-level bindings" 'face 'which-key-note-face))
                       prefix-w-face dash-w-face
-                      (propertize "  [n]ext-page, [p]revious-page, [u]ndo-key, [h]elp, [a]bort"
+                      (propertize
+                       (substitute-command-keys
+                        (concat
+                         " \\<which-key-C-h-map>"
+                         " \\[which-key-show-next-page-cycle]" which-key-separator "next-page,"
+                         " \\[which-key-show-previous-page-cycle]" which-key-separator "previous-page,"
+                         " \\[which-key-undo-key]" which-key-separator "undo-key,"
+                         " \\[which-key-show-standard-help]" which-key-separator "help,"
+                         " \\[which-key-abort]" which-key-separator "abort"))
                                   'face 'which-key-note-face)))))
          (cmd (lookup-key which-key-C-h-map k))
          (which-key-inhibit t))